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E XADRIVER = VAX/VMS DR11-W DRIVER 
T ye-001" 


SSH HHSHHHHHTEHAHeeeeeeeeeteeeeeetenekekeeeateeeeaeeteteteterereretereTenee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS pyri ance UNDER A LICENSE AND MAY BE USED AND co tee 
ONLY IN ACCORDANCE WITH THE TERMS OF te ait ee “ih We 


& 
-@ ® 
:@ * 
:@ ® 
-@ ® 
-@ ® 
-@ a 
* t TICE. SOF Tw 0 ‘ 
;@ COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
:® TRANSFERRED. ‘ 
-@ ® 
;@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
;® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION, . 
:@ ® 
° ar 
-@e e 
-@ & 
-@ & 
* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


: IBIL 

3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
: SHS SSSeSSeSeeeSeKeeeKeKeeeeeeeeeeeeakaeeaeteaeeeetetetereretetereteeet 
ie 

; FACILITY: 
VAX/VMS Executive, 1/0 Drivers 

ABSTRACT: 

This module contains the DR11-W driver: 
Tables for Loading and dispatching 
; Controller initialization routine 

3 FDOT routine 

: The start 1/0 routine 

: The interrupt service routine 

3 Device specific Cancel 1/0 

: Error logging register dump routine 
; ENVIRONMENT : 

: Kernal Mode, Non-paged 

; AUTHOR : 

C. A. Sameulson 10-JAN-79 


; ; MODIFIED BY: 


nn 
. . oe Be Ge Oe . . o 
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JLVO395 Jake VanNoy 6-SEP-1984 
Add AVL bit to DEVCHAR. 

TMK0001 Todd M. Katz 07-Dec-1983 
Fix @ broken branch. 

JLVO304 Jake VanNoy 24-AUG"1983 
Several bug fixes. All word writes to XA_CSR now have 
ATTN set so as to prevent lost interrupts. Attention 
AST List is synchronized at device IPL in DEL_ATTNAST. 
Correct status is returned on a set mode ast Fhat 

is returns throygh EXESFINISHIO. REQCOM's are always 
done at FIPL. Signed division that prevented full size 
transfers has been fixed. 

KDMO00S9 Kathleen D. Morse 14-Jul-1983 


Change time-wait loops to use new TIMEDWAIT macro. 
Add SDEVDEF. 


eae Kathleen D. Morse 28-Jun-1982 
Added SDYNDEF, SDCDEF, and SSSDEF. 
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; External symbols 


x<cw 
mow 
7 7 


; Local symbols 


-SBTTL External and local symbol 
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definitions 


AST control block 

Channel request block 

Device types 

Device data block 

pey’ce characteristics 
Driver prolog table 

pyneatc data structure types 
EMB offsets 

Interrupt data block 

1/0 function codes 

Hardware IPL definitions 

1/0 request packet 

Internal processor registers 
Scheduler priority increments 
System status codes 

Unit control block 

Interrupt vector block 


Define device specific characteristics 


; Argument List (AP) offsets for device-dependent 010 parameters 


Pi = 0 
P = 4 
P = 8 
P4 s 12 
PS = 16 
= 20 


; Other constants 
MA_DEF_TIMEQUT = 1 

KA_DEF Bur siz = 65535 
KMA-RESET_DELAY = <<249>/10> 


First Q10 parameter 
Second Q10 parameter 
Third Q10 parameter 
Fourth Q10 parameter 
Fifth Q10 parameter 
Sixth Q10 parameter 


10 second default device timeout 
Default buffer size 
Delay N microseconds after RESET 


(rounded up to 10 microsec intervals) 


3; DRI 1l-W definitions that follow the standard UCB fields 
3; tee NOTE #¢¢ ORDER OF THESE UCB FIELDS IS ASSUMED 


SDEFINI UCB 
-=UCBSL_DPC +4 
SDEF UCOSL HA _At = 
SDEF UCBSW_XA_CSRTMP 
SDEF UCBSY_XA_BARTHP 
SDEF UCBSY_XA_CSR 
SDEF  UCBSW_XA_EIR 


—_  —_-_ —_-_ — 


; Attention AST Listhead 
; Temporary storage of CSR image 
; Temporary storage of BAR image 
; Saved CSR on interrupt 


Saved EIR on interrupt 


H 
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-BLKW 
SDEF UCBSW_XA_IDR 
“BL KW 
SDEF UCBSW_KA_BAR 
SDEF UCBSH_XALWCR 
SDEF UCBSU_KA_ERROR 
SDEF UCBSL_XA_DPR 
SDEF UCBSL_XA_FRPR 
SDEF  UCBSL_XA_PMPR 
TBLKL 
SDEF  UCBSW_XA_DPRN 
~BLKW 


; Saved IDR on interrupt 

; Saved BAR register on interrupt 
; Saved WCR register on interrupt 
; Saved device status flag 

; Data Path Register contents 

; Final Map Register contents 

; Previous Map Register contents 


—_-_ —_-_ —_-_— Sse se Sse st lcrhl 


3; Saved Datapath Register Number 
; And Datapath Parity error flag 


; Bit positions for device-dependent status field in UCB 


SVIELD vuCB,0,<- ; UCB device specific bit definitions 
<ATINAST, ,M>,= ; ATTN AST requested 
<UNEXPT, ,M>,=- ; Unexpected interrupt received 
UCBSK_SIZE=. 
SDEFEND UCB 
; Device register offsets from CSR address 
SDEFINI KA 3; Start of DRIl-W definitions 
SDEF KA_WCR ; Word count 
-BLKW 1 
SDEF KA_BAR ; Buffer address 
-BLKW 1 
SDEF KA_CSR ; Control/status 


; Bit positions for device control/status register 


SEQULST KASK_,,0,1,<=- 3; Define CSR FNCT bit values 
<FNCTI. 2>- 
<FNCT2,4>- 
<FNCTS,8>- 
<STATUSA.2 48>- ; Define CSR STATUS bit values 
<STATUSB, 4>- 
<STATUSC,512>- 

> 

SVIELD KA_CSR,0,<- ; Control/status register 
< M>,- 3; Start device 
<FNCT,3.m>,- : CSR FNCT bits 
<XBA,2,M>,= : Extended address bits 
<1E,,">,- 3; Enable interrupts 
<RDY, ,M>,= 3; Device ready for command 
<cvcieé &>,- 3; Starts slave transmit 


CSR STATUS bits 


. 


| 


| 
| 
| 
i 
| 
| 
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<MAINT, ,M>,- 
wane ©. 
: <ERROR, ,M>,- 
SDEF  KA_EIR 
; Bit positions 
SVIELD xXA_EIR,0,<- 
<REGFLG, .M>,= 
<SPARE ,f M>.- 
<BURST, ,M>,= 
<DLT,,M>,= 
<PAR, .M>.= 
<ACLO. ,M>,= 
<MULTE: Md, - 
<ATIN, ,M>,- 
<NEX, ,M>,= 
<ERROR, ,M>,- 
> 
.BiKw (1 
SDEF KA_IDR 
$DEF KA"ODR 
.BLKw (1 
SDEFEND XA 
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Maintenance bit 

ptotus from other processor 
Nonexistent memory flag 
Error or external interrupt 


; Error information register 
for error information register 


Error information register 

Flags whether EIR or CSR is accessed 
Unused = spare 

Burst mode transfer occured 
pingeout for successive burst xfer 
Parity error during DATI/P 

Power fail on this processor 
Multiecycle request error 

ATTN = same as in CSR 

NEX = same as in CSR 

ERROR = same as in CSR 


Input Data Buffer register 
Output Data Buffer register 


End of DRil-W definitions 
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-SBTTL Device Driver Tables 
; Driver prologue table 


DPT_STORE UCB-UCBSB_ DEVCLASS,B,DC$_REALT 
6,0T$ BRilW ; Device 


Default Wh ter size 


DPTAB - 3; DPT-creation macro 
END=XA_END,= 3; End of or ver Label 
ADAPTER= 7 ; Adapter type 
FLAGS=DPT 3 oN es pes system page table 
Ucbs Izecucase VSI7e.- : UCB s 
NAME =XADRIV 3; Driver neve 

DPT_STORE INIT 3 stort of oad 

3: ini oftesttce table 

DPT_STORE yee Ure se-p tpt B's ; Device fork IPL 

DPT-STORE UCB,UCB$B_DIPL.B,22 3; Device interrupt IPL 

DPT“STORE UCB -UCBSL - DEVCHAR,L.<- : Device characteristics 
DEVSM_AVL 3 averts - 

DEVSMA_RTM!- ; Real T evice 
DEVSM_ELG!- 3; Error Log 9) "9. enabled 
4 Li 3; = input 
DEVSM_ODV> ; output saevice 

ime i Device class 


DPT-STORE UCB,UCBSB_ mete Fe 


DPT =o tone Aes UCBS$W" DE VBUFS 1.W,- 
DEF BU 
DPT “store AREINTT Start of reload 
initialization table 
DPT_STORE DDB,DDBSL atti 2g: Address of DDT 


DPT STORE cre CRBSL~ NIbe bop 

DPT _store cre CRBSL INTD*VECSL INITIAL, = 
xA_CONTROC_INIT 

DPT_STORE END 


Address of interrupt 

; service routine 
Address of controller 
initialization routine 
: End of initialization 
tables 


; Driver dispatch table 


DDTAB = ; DDT-creation macro 
DE VNAM=X Name of device 
START=XA Aer aRT 


Start 1/0 routine 
FUNC TBEXK “FUNC TABLE. 


FDOT address 
faye fe “CANCEL Cancel 1/0 routine 
REGDMP=XA_RE 


GD pyereter dump routine 
DIAGBF #<<T394>0<<$45¢1>04>>,- 


nett buffer size 
ERLGBF =<<1304>4<104>+<EMBSL_DV_ nictay Error log buffer size 


: Function dispatch table 


ia FUCA 3; FDOT for driver 
UNCTAB , : Valid 1/0 functions 
READPBLK READLBLK ,READVBLK ,WRITEPBLK WRIT TELBLK WRI TEVBLK, - 


ETMODE , SETCHAR, SENSEMODE, SENSE CHAR> 


FUNCTAB > ; ho puttored, fyncs tons 
FUNCTAB KA_READ_wWR 


<READPBCK, seo eLK. seni verte t whe fet tmia 
FUNCTAB SEXESREAD, <READPBLK, READLBLK ,READVBLK> 


(: — i 
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FUNCTAB *EXESWRITE,<wRIT TELBLK, WRIT 
FUNC TAB KA Ha ROE <seTe . SETCHARD said cece 
FUNCTAB +E RESSENSEMOD opnge MODE , SENSE CHAR> 


-— 
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«SBTTL KALCONTROL_INIT, Controller initialization 


4 


* 
KA_CONTROL_INIT, Called when driver is loaded, system is booted, or 
power failure recovery. 


Functional Description: 

1) Allocates the direct data path permanently 

¢} Assigns the controller data channel permanently 
4) 


Clears the Control and Status weg teter 
If power recovery, requests device time-out 


SR 
dB 
dB 
RB 


RG = address of C 
R5 = address of | 
4 = address of D 
RB = address of C 


Outputs: 


VECSV_PATHLOCK bit set in CRBSL_INTD+VECSB_DATAPATH 
UCB address placed into IDBSL_OONER 


3 
5S 


KA_CONTROL_INIT: 


MOVL IDBSL yces Sten? RO 3; Address of UCB 
MOVL RO, 1OBSL_OWNER(R5) ; Make permanent controller owner 
BISW — #UCBSM_ORL INE ,UCBSW_STS(RO) e . 

3; Set device status ‘on-line 


: If powerfail has occured and device was active, force device time-out. 
3; The user can set his own time-out interval for each request. Time- 
; out is forced so a very long time-out period will be short circuited. 
BBS #UCBSV_POWER ,UCBSW_STS(RO) ,10$ 

owerfail 


: verge if Pp 
BISB = #VECSM_PATHLOCK, CRBSL_INTD+VEC$B_DATAPATH(R8) 
3; Permanently allocate direct datapath 


BSBW KA_DEV_RESET ; Reset DRI1W 
RSB 3; Done 


10$: 


GV—_——— 
f 


| 
| 


WP e Oeste © Oe Ge Ge Ge Ge Se Ge Ge © Se Ge Oe Ge Ge Se 


M 
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~SBTTL MKA_READ_WRITE, FDT for device data transfers 
++ 
; KMALREAD_ WRITE, FDOT for SEER ee een READPOLK UNI TELBLE ,URETEVELK., 
; WRITEPBLK 


; Functional description: 


) Rejects QUEVE 1/0's with odd transfer coun 

) Re ects pr 1/0's for BLOCK MODE reaen to UBA Direct Data 

§ Seevee bean st" tine-oy * Count seecttt qin PS into IRP 
ores re m coun e ed in nto 

) Stores FNC bits ts servis ‘s Pt fat go ir 

) Stores word to write into ODR from P oa IRP 

» Checks block mode an a a. memory modify access 


; Inputs: 
R3 = Address of IRP 


5 RG 
; of ccB 
: Address of FDT routine 
; Address of P1 

3 = Buffer Address 

: = Buffer size in bytes 

$ P35 = Request time-out period (conditional on I10$M_TI 
$ = Value for CSR FNCT bits (conditional on IOSM=SE 
: = 
P4 = 


Value for ODR (conditional on IOSM_SETFNCT) ~ 
Address of Diagnostic Buffer 


; Outputs: 
RO = Error status if odd transfer count 


IRPSL_MEDIA = Time-out count for this req 
IRPS$L-SEGVBN = FNCT bits for DRI1-W CSR oe Opr image 


MA_READ_WRITE: 

BLBC P2(AP),10$ Branch if transfer count even 
$: MOVZWL #SS$ PARAM,RO Set error status code 
$: mp G*EX T Abort request 


: E 
108: MOVZ2WL =IRPSW ru CCAS) R1 Fetch I/ puncte lon code 
L P3(APY, IRPSL nip A(R3) ace c request specific time-out count 
® fIMED.R1,15$ time-out specified 
MOVL  &@XA_DEF Minéout. IRPSL anebinca3) 


15$: 345 #10$V “pi newest it 1 B08 i set 


of dotoult timeout value 
EXTZ2V #lO$SV"F CODE floss F CODE 
t slot READS 


not maintenance reqeust 
AND out all Tunce on mt yeaa 
~~ f aes ntenance function, must be 
: physical 1/0 read or write 


208 
oor Sh96 URI TEPOLE AI 
MOVZ2WL 9 #SS$_NOPRIV,RO 3 No privilege for operation 


———_——- 
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BRB 3§ 3; Abort request 
208:  EXTZV #0,#3,P4(AP).RO : Get value for FNCT bits 

ASHL #xA_CSR$v_FNCT,RO,IRPSL_SEGVBN(RS) ; Shift into position for CSR 
MOV  PS(AP),IRPSL_SEGVBN+2(R3) ; Store ObR value for Later 


If this is @ block mode transfer, check byfter for modify access 
whether or not the function is read or write. The DR11-W does 
not decide whether to read or write, the users device does. 

For word mode requests, return to read check or write check. 


f this is a BLOCK MODE request and the UBA Direct Data Path is 
n use, check the data buffer address for word alignment. If buffer 
is not word aligned, reject the request. 


BBS #10$V_WORD, IRPSW_FUNC(R3) ,30$ 
h st yere mode transfer 


; Branc 
BBS #XASV_DATAPATH, UCBSL_DEVDEPEND (RS) 
; Branch if Buffered Data Path in use 
BLBS PI(AP) ,2$ 3; ODP, branch on bad alignment 
5$: JMP G*EXESMODIFY ; Checke buffer for modify access 
O$: RSB ; Return 
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~SBTTL XA_SETMODE, Set Mode, Set characteristics FDOT 


-+¢ 

; KALSETMODE, FDOT routine to process SET MODE and SET CHARACTERISTICS 

; Functional description: 

If IOSM_ATTNAST modifier is set, queue attention AST for device 
If IOSM"DATAPATH modifier is set, queue packet. 

Else, finish 1/0. 


; Inputs: 


R3 = 1/0 packet address 
= PCB address 
RS = UCB address 
R6 = CCB address 
R7 = Function code 
AP = G10 Paramater List address 


; Outputs: 


If IOSM_ATTNAST is specified, queue AST on UCB attention AST List. 
If IOSM_DATAPATH is specified, Queue packet to driver. 
Else, uSe exec routine to update device characteristics 


: RG 


KA_SETMODE : 
MOVZWL IRPSW_FUNC(R3) ,RO ; Get entire function code 
#1OSV_ATTNAST, RO, 20$ : Branch if not an ATTN AST 


3; Attention AST request 


PUSHR @*M<R4,R7> 
MOVAB UCBSL rq aae R7 ; Address of ATTN AST control block List 


JSB G*CONBSETAT NAST 3; Set up attention AST 
POPR oor eae’ 
BLBC anch if error 


508° 
BISW sutaSA. ATTNAST ,UCBSW_ pevirs (ns) 


Fla 39 4 alin AST expected. 
BBC #UCBSV_UNEXPT ,UCBSW_ DEvSTS(R59,108 
; Deliver AST if unsolicited interrupt 


BSBW DEL_ATTNAST 
10$: MOVZBL #SS$_NORMAL,RO 3; Set stat 
JMP G*EXESF INISHIOC 3 Thats att bas now (clears R1) 


: If modifier IOSM_DATAPATH is set 

3 Queue packet. The data path is changed at driver level to preserve 

3; order with other requests. 

20%: BBS S*#10$V_DATAPATH,RO,30$ ; If BDP modifier set, queue packet 
JMP G*EXESSETCHAR 3; Set device characteristics 


; This is a request to change data path useage, queue packet 


aS 


Wee Oe Se Oe Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se SHS Se Se Se we 


»! 


| 
| 
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30$: CMPL : $_SETCHAR,R7 
JMP G*EXESSETMODE 
; Error, abort 10 
45%: MOVZ7WL 9 #SS$_NOPRIV,RO 
508: CLRL 1 
J G*EXESABORTIO 


. 
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Set characteristics? 
No, must have the privelege 
Queue packet to start 1/0 


; No priv for operation 


Abort 10 on error 


12 
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: ~SBTTL KA START, Start 1/0 routines 
KA_START = Start a data transfer, set characteristics, enable ATTN AST. 
Functional Description: 

This routine has two major functions: 


1) Start an 1/0 thane ter This transfer can be in either word 

r block mode. The FNCTIN bits in the DR1i1l<W CSR are set. If 
the transfer count is zero, the 7 US bits in the DRil-w CSR 
are read and the request complete 
Set Characteristics. If the eerie is change data path, the 
new data path flag is set in the UCB. 


2 


~~ 


Inputs: 


R3 = Address of the 1/0 request packet 
R5 = Address of the UCB 


Outputs: 


RO = final status and number of bytes transferred 

Ri = value of CSR os bits and value of input data buffer register 
Device errors are ogged 

Diagnostic buffer ‘2 illed 


Se Se Ce Ge Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Ge Se Se Ge Se Se ee Se Se 


-ENABL LSB 
KA_START: 
; Retrieve the address of the device CSR 


ASSUME IDBSL_CSR f2,° 
MOVL UCBSL~ CRB( . Agéress of CRB 
MOVL acrest_ IHIDeVECSL. 1DB(R4S,R 

; "aadrene of CSR 


3; Fetch the 1/0 function code 


MOVZWL cube Mag hey R1 3; Get entire function code 
MOVW uCBSw C(RS) Saye FUNC in UCB for Error Logging 
EXTZV a1OSy. Peope #108s. FCODE, in Re ; Extract function field 


; Dispatch on function code. If ents is SET CHARACTERISTICS, we will 
; select a data path for future us 

3; If this is a transfer function, fF will either be processed in word 
: or block mode. 


CMPB & 
3 


O$_SETCHAR,R2 3; Set characteristics? 
BNEQ 


e 
SET CHARACTERISTICS = Process Set Characteristics Q10 function 


5! 


—__—_-- ---—- a 


| 
® 
|@ 
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INPUTS: 


KA_DATAPATH bit in Device Characteristics specifies which data path 
to use. If bit is a one, use buffered data path. If zero, use 
direct datapath. 


OUTPUTS: 


CRB is ub Bits as to which datapath to use. 
pEWeerere ts 2 device characteristics is updated 
ATH = 1 => buffered data path in use 
tA ~DATAPATH = 0 => direct data path in use 


MOVL UCBSL_CRB(R5),R Get CRB address 


MOVO = IRPS “HEB IAtRS). ,UCB$B_DEVCL ass(rns) : Set device characteristics 
BISB  - #VECSM_PATHLOCK.CRBSL~INTD* *VECSE_DATAPATH (RO) 
. we direct mi tin 
BBC #XASV_DATAPATH, UCBSL_DEVDEPEND (RS) ; Were we ri 
- B1CB avecsA _PATHLOCK, CRBSC_INTD+ CVECSB. DATAPATHCROS. Set ei teres datapath 
Ff CLRL ; Return Success 
MOVZWL #5S$_ NORMAL ,RO 
REQCOM 
; If subfunction modifier for device reset is set, do one here 
3$: BBC S*#10$V went R1,4$ ; Branch if not device reset 
BSBW KA_DEV_RES 3; Reset DR11-W 


; This must be a data transfer function - i.e. READ OR WRITE 
3; Check to see ‘¢ this is a gore length transfer 
; If so, only set CSR FNCT bits and return STATUS from CSR 


4%: TSTw UCBSW_BCNT (RS) ; a transfer count zero? 
BNEQ 10$ Oo, continue with data transfer 
+ S*#I1OSV_SETFNCT.R1,6$ ; Set CSR FNCT specified? 
Vid IRPSL_SEGVBN+2(R3) , XA_ ODR(R4) 


3; Store word in ODR 

MOVZWL KA_CSR(R4&),RO 

BICW a<3A_CSRSM_ Aye} He CSRSM_ERROR>,RO 

61S TAPS CSRERTATINR “ye 
3; Force ATTN on to prevent lost interrupt 


8B mo aA. “tit U Li DEVDEPEND(R5), 5$ ; Link mode? 

sass BICWS #XASKTFNCTO,RO,KA_CSR(R4) : hake FNCT bit 2 a pulse 

sie ENBINT 

BSBW = KA_REGISTER ; Fetch ORI1-W registers 

BLBS ; i orrer « then log it 
J$8 G*ERLSDEVICERR : Log a evice error 

7$: JS8 6* 1OC$D 1 AGBUF ILL : lt diagnostic buffer if specified 
MOVL UCBSW_YA_CSR(R5) RI 3 Ae, ¢ R and EIR in R1 
MOVZ2WL UCBSW7XATERROR(RS),RO : Return status in RO 


z 


Se Oe ee ™N ee te ee 7 Ve Ge Do Ge De Ge Ge De Ge Ge Go Ge Ge Ge Se Ge Oe Ge Se Ge 
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B1S8 @XA_CSRSM_IE,KA_CSR(RG) ; Enable device interrupts 
REQCOM ; Request done 


; Build CSR image in RO for later use in starting transfers 


yoo. BCNT(RS),RO ; Fetch byte count 
Dv ROT UCBSL_XA “DPR(RS) ; Make byte count into word count 
; Set up UCBSW_CSRTMP used for loading CSR Later 
MOVZWL XA CERCRG) GR 
Bisu SUCCHASCSREA,E iA. 7 ahs ATTN RO $ I t Enabl dg ATTN 
et Interru nable an 
BBC Sn aToby SE ate Shc rss ENeT bits in ¢ $k? 
BiCw G<KA CSR ; Reet RK, FNCT bits 
BiSB ~—s-« RP SC SEGVENCRS) Rha now voles 
208: BBC $n logy as a 236° : Check for maintenance function 
B1SW #XA_CSRSM_MA ; Set maintenance bit in CSR image 
; Is this @ word mode or block mode request? 
23%: MOV sealoty, KMA_CSRIMP(RS) ox: CSR image in UCB 
BBC GORD -R1,BLOCK_ mobE : Check if cord or block mode 
BR w ; Branch to handle word mode 


es 
e- — Dee Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe OH OH Se Oe Se Oe i 
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;e¢ 
; BLOCK MODE -- Process a Block Mode (DMA) transfer request 
; FUNCTIONAL DESCRIPTION: 


This routine takes the buffer address, buffer size, fucntion code 
and function modifier fields from the IRP. It calculates the UNI6uUS 
address, allocates the UBA map registers, loads the DRil-wW dev = 
registers and starts the request. 


‘oe 
| 

| 

5 Set up UBA 

; Start transfer 
BLOCK _MODE : 


; If 1LOSM_CYCLE subfunction is specified, set CYCLE bit in CSR image 


BBC #10$V_CYCLE,R1,25$ ; Set CYCLE bit in CSR? 
BlSW #xA_CSRSM_CYCLE,UCBSW_XA_CSRTMP(RS) ; If yes, or into CSR image 


; Allocate UBA data path and map registers 


25%: 
REQDPR ; Request UBA data path 
REQMPR ; Request UBA map registers 
LOADUBA 3; Load UBA map reqisters 


: Calculate the UNIBUS transfer address for the DR1il-W from the UBA 
; map register address and byte offset. 


MOVZ7ZWL UCBSW poe? ces) R1 z Gree erro is first page of xfer 
MOVL UCBSL - CRB(RS) ,R2 Address of 
INSV —- CRBSL= ~{ntoeveesd spaonesciss99 R1 

; Insert pa 
EXTZV #16,42,R1,R2 3 Extract b ts nye 16 of bus address 
ASHL axa, tekey’ XBA,R2,R2 3 ghey extended memeroy bits for CSR 
B1SW @XA~CSRSM~GO,R2 3 Bitte bit into CSR image 
BiSW R2,0CBSv RA CSRIMP(RS) ;: st CSR im mage we are building 
BICWS #<KA_CSRSM_GO!KA_CSRSM_ cicie>, yeas. XALCSRIMPCRS) RO 
CSR e less ‘'GO"' and ‘'CYCLE 
BICWS #XASK_FNCT2,UCBSW_XA CSRTMBCRS) oR CSR image less FNCT bit 2 
MOVW R1,UCB$W_XA_BARTMP(RS) ; Save ban lor error logging 


At this on : . P 
s less ‘‘GO"’ and ‘CYCLE’ 
a = 16 bits of sronerer bus address 
R2 = CS saage less FNCT 
UCBSL_XA_DPR(RS) = transfer count in words 
UCBSW_XA_CSRTMP(RS) = CSR image to Start transfer with 


cture 
CSR 
l 
C 


; Set ORI 1-0 registers and start transfer 

3; Note that read-modify-write cycles are wot erformed to the DRil-wW CSR. 

; The CSR is ower? written Girocety nto. This prevents inadvertently setting 
; the EIR select flag (writing bit 15) if error happens to become true. 


DSBINT 3; Disable interrupts (powerfail) 


H 
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MNEGH UCBSL_XA_DPR(RS) KA -WCR(RG) 
: Load negative of of 2 i ged sos 


MOVW = RT, KAL) penne} : pees lo f bus address 

OVW RO, KA_ ins o9¢ SR c. e tess 300" and ‘CYCLE’ 

BBC euhey Ine Ucese DEVDEPEAD CR G08: Link moder ae wie , 
mage Less 

BRB RE HALE : Only i} eH mode in dev ge less “NCI” 


268: 
mOVW UCBSW_XA_CSRTMP(RS) ,KA_CSR(RG) ; Move all bits to CSR 


; Wait for transfer complete interrupt, powerfail, or device time-out 


1268 
WFIKPCH KA_TIME_OUT,IRPSL_MEDIA(R3) ; Wait for interrupt 


; Device has interrupted, FORK 


10f ORK ; FORK to lower IPL 

; Handle request completion, release UBA resources, check for errors 
MOVZWL $_NORMAL ,-(SP) Assume success, store code on stack 
CLRW ape XA_DPRN(RS) Clear DPR number and DPR error flag 
PURDPR Purge UBA buffered data path 


Branch | no datapath error 
Ftag 9 Bar ty ore on device 

C * 5) DR error for log 
278: MOVL R1,UCBSL-XA_DPR(RS) Save data path register in UCB 
EXTZV ave cy Mat 3 get Datapath register no. 


Error Lo 
at TNtDsvE ove CS TBATAPATHCRS) .RO . 
e: rs er Save "ie later in UCB 

EXTZV cBsu: KA wit RS), rd ; : Low bits, final map register no, 
EXTZV meu oU BSu. MA_CSR(RS), *R1 i bits of map register no. 
INSV 3 exles map register number 
C nbee’ : Is i Be yg number in range? 
BGTR it = compound error 


2 No, 
MOVL (Re) CRO}, yea XA_FMPR(RS) |; seve" map register contents 
CLAL BSL_XA_PMPR(RS)~ ; Assume no previous map register 
DECL ives there a previous map register? 
CMPY @vECc$v mapees #VECSS_MAP REG. 
$L_INTD+VECSW_MAPREG(R3) "RO 


BGTR tr 

MOVL (R2)CROJ,UCBSL_XA_FMPR(RS) 3 Save revious map register contents 
288: RELMPR 3; Release UBA resources 

RELDPR 
3; Check for errors and return status 

TSTwW i KA_WCR(RS) z Ait words transferred? 


BEO Ye 
ROVIUL @ OP INCOMPL , ( eration not complete 

30$: BBC sik seis v ramon mire KA_ trp 453" Branch on CSR error bit 
MOVZUL UCB (SP) lag tor r gontroller/drive error status 
BSBu ; Ae 

35$: BLBS ),4 yones 3 Any Mt. after all this? 


-_ 
z 
oOo 
@ 
Cc 
x 
> 
so 
v 
ze 
z 
o 
— 
~ 
2» 


c-- 
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_ 
® 


DEE ATINAST i Yes, log them 
408:  8S8w ; Del iver outstendin ATIN AST's 
JSB FYocso} cour Lt 3 iagnostic buffer 
MOVL ts) 3; Get fina Oqvice status 
mAus : stiibtlt MA paige R1 ; Calculate final transfer count 
INSV ett ; Insert into high byte of 10SB 
MOVL uC cotuek tA 1,0 R1 > Return CSR and EIR in 10SB 
8158 _CSRSA_IE KA _CSR«R4) 3 Frable interrupts 
REQCOM 3; Finish request in exec 
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-DSABL LSB 
WORD MODE == Process word mode (interrupt per word) transfer 
FUNCTIONAL DESCRIPTION: 


Date is transferred one word at a time with an interrupt for each word. 

The request is handled Sroerocesy for a write (from memory to DR11-W 

and a read (from DRil-W to memory). 

for a write, date is fetched from memory, loaded wy the ODR of the 

DR11-W and the prety vs ts for an interrupt. For a read, the system 
nterrupt and the IDR & transferred nto memory. 

If the unsolicited interrupt af, & $s set, the first word is eronsterred 

directly into memory withou waiting for an interrupt. 


Se Ge Ge Ge Ge Ge Ge Se Se Ge Se Ge Se He 
* 


-ENABL LSB 
WORD _MODE : 
; Dispatch to separate loops on READ or WRITE 
CMPB C198 REABPOLE M2 3; Check for read function 
BEQL 30$ 
a 
WORD MODE WRITE -- Write (output) in word mode 
FUNCTIONAL DESCRIPTION: 


Transfer the requested number of words from user gonery to 
the DRil-W ODR one word at a time, wait for interrupt for each 


word. 
108: 

BSBW MOVF RUSER ; Get two bytes from user buffer 

DSBINT 3; Lock out interrupts 

3; Flag aeerrwes ceyonctes 

MOvVW R1, KA_ODR(R ; Move data t 

MOVW UCBSWTXA CERTMPCRS) xa_coR(Red iss" tatu CSR 

BBC aXa$v {tak suCBSL DEV BEVDEPEND (RS) 15 ink mode? 

BiCw3 #XASKFNCT,UCBSO_X =CSRTMP (RSS ,x sR(Ra) ; Clear interrupt FNCT bit 2 
son 3 Only ri Tink mode specified 


; Wait for interrupt, powerfail, or device time-out 
WFIKPCH KA_TIME_OUTW, IRPSL_MEDIA(R3) 
3; Check for errors, decrement transfer count, and loop til complete 


10F ORK 3; Fork to lower IPL 
BlTw watt ti wee Kile 


ee 
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on eS ACL Q!- 
Ren “DLT UCBSW. WA -EIR(RS) 3 errors? 


BEQL : No, lone nue 
BRW 3; Yes, mort itranster.. 

208: DECW i KA_DPR(RS) words trnasterred? 
BNEQ 3 No, loop weoatl finished. 


3; Transfer is done, clear rogers oper tee flag and FORK 
; ALL words read or written in D MODE. Finish 1/0. 


RETURN_STATUS: 
JSB gor set Aeeur Sut ity diagnostic tng Att i pyeent 
BSBW DEL — ped outstand ATTN 


Complete success st 

Calculate hcp xfered 
From requested number of + tse 
And place in high word 

Return CSR and EIR status 
Foeple device interrupts 
Finish request in exec 


mOVZ te NOR RO 
228: pul a S KORMAL DPR(RS) RI 
Ri -UCBSu Basu CAT RS) RI 


MOVL Ucésueé Pr ts RI 
8158 _CSRSA_IE,XA_CSR(R4) 
REQCOM 


+ 
WORD MODE READ == Read (input) in word mode 
FUNCTIONAL DESCRIPTION: 


Transfer the requested number of wrods from the DR11-W IDR into 
user memory one word at a time, wait for interrupt for each word. 
If the unexpected (unsoliciteds interrupt bit is set, transfer the 
iiret cceet received) word to memory without waiting for an 
nterrupt. 


Se Ge Ge Ge Ge Se Oe Ge Ge Ge Ge 
; 5 


° 


DSBINT UCBSB_DIPL(RS) 


; If an unexpected (unsolicited) interrupt has occured, assume it 
; is for this READ request and return value to user buffer without 
3; waiting for an interrupt. 


3; Lock out interrupts 


BBCC ~ 
Ucose BevETs (AS) 328 :; Branch if no unexpected interrupt 
ENBINT : Enable interrupts 
BRB 378% 3 continue 
328 
SETIPL @#IPLS$_POWER 
358: 


; Wait for interrupt, powerfail, or device time-out 
WFIKPCH KA_TIME_OUTW, IRPSL_MEDIA(R3) 
; Check for errors, decrement transfer count and ioop until done 


20 
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378: 10F ORK 3; Fork to lower IPL 
‘ Bitw aKa FIRS NEX! = 
KA_EIRSM_AULTI!- 
XA- IRSAAACLO!= 
KAZE IRSM_PAR ! = 
KA_EIRSM_DLT,UCBSW_XA_EIR(RS) ; Any errors? 
BNEQ 40 : Yes, abort transfer. 
BSBW MOVTOUSER ; Store two bytes into user buffer 
; Send interrupt back to sender. Acknowledge we got last word. 
DSBINT 
MOV yceey. KA_CSRTMP(RS) ,KA_CSR(RG) 
BBC V-LIAK sve DEVDEPEND(RS),388 ; Link mode? 
a. BiCu3 FHASK: “FNCTS,UCBSO_XA_CSRTMP(RSS .XA_ESR(RG) 3 Yes, clear FNCT 2 


DECW YERSL_HA_DPRCRS) Decrement transfer count 
aa vat $ Loop until all words transferred 


Bkw RETURN_STATUS 
3; Error detected in word mode transfer 


Finish request in common code 


408: 
BSBwW DEL_ATTNAST ; Deliver ATTN AST's 
BSBW XA_BEV_RESET 3; Error, reset DR11 <u 
JSB G* TOCSBTAGEUF ILL 3 Fill diagnostic buffer if presetn 
JSB G*ERLSDEVICERR 3 Log device error 
Saag ycase KA_ERROR(RS),RO ; Set controller/drive status in RO 
-DSABL LSB 
; MOVFRUSER = Routine to fetch two bytes from user buffer. 
; INPUTS: 
; RS = UCB address 
+ OUTPUTS: 
; R1 = Two bytes of data from users buffer 
: Buffer descriptor in UCB is updated. 
> -ENABL LSB 
MOVF RUSER: 
AL -(SP),R1 3; Address of sonserary stack loc 
MOVZBL #42,R 3 Fetch two byt 
JS8 G* [OC SMOVF RUSER > Call exec rout ne to do the deed 
MOVL 5 lal 3; Retreive the b gies 
BRB 208 3 Update UCB buffer pointers 


: MOVTOUSER = Routine to store two bytes into users buffer. 


Ld 
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; INPUTS: 


RS = UCB pddrens 
UCBSW_KXA_IDR(RS) = Location where two bytes are saved 


3 OuTPUTS: 
3 Two bytes are stored in user buffer and buffer descriptor in 
3 UCB is updated. 
MOVTOUSER: 
MOV UCBSW_XA_IDR(RS),R1 3; Address of internal buffer 
MOvVZBL @# 
JSB G* [OCSMOVTOUSER : Call exec 
208: 3; Update buffer pointers in UCB 
ADDW #2,UCBSW_BOFF (RS) ; Add two to buffer descriptor 
Bicw  #*C<*xO1FF>,uCBSw_BOFF(R5) ; Modulo the page size 
BNEQ 0$ 3 # NEQ, no page boundary crossed 
$08 ADOL #4 ,UCBSL_SVAPTE (RS) 3; Point to next page 
RSB 


-DSABL LSB 
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“CAG 
»SBTTL DRI1-W DEVICE TIME-OUT 


3 DRII-W device TIME-OUT 
; If a DMA transfer was in progress, release UBA resources 

; For DMA or WORD mode, deliver ATTN AST's, log a device timeout error, 
and do a hard reset on the controller. 


Clear DRil-W CSR 
Return error status 


Power failure will appear as a device time-out 


-ENABL LSB 
KA_TIME OUT: ; Time-out for DMA transfer 
SETIPL UCBSB_FIPL(RS) 3; Lower to FORK IPL 
PURDPR 3; Purge buffered data path in UBA 
RELMPR ; Release UBA map registers 
RELDPR 3; Release UBA data path 
8 10$ 3; continue 
KA_TIME _OUTW: 3; Time-out for WORD mode transfer 
SETIPL UCBSB of 1M ie ; Lower to FORK IPL 
108: MOVL acest etch address of CSR 
MOVL c INtDevECs. ~10B(R45 RG 
BSBW REGTS! 3; Read DR1I1-W registers 
JSB G-TOe DTAGBUF ILL ; Pitt diagnostic butter 
SB G*ERLSDEVICTMO 3; Log device time o 
BSBW DEL_AT 1 3; And deliver the RST 's 
BSBW MA_BEV_RESE 3 Reset controller 
Roveul. sss rine Yt RO 3 Assume error status 
uCB$w sheers) 208 3 Branch if not cancel 
MOVZ2WL #SS$_CANCEL,RO > Set status 
208 CLRL 
CLRW UCBSW_DEVSTS(RS) r ATTN AST fla 
BiCw #<UCBSM_TIM'UCBSM_ Int !ucbsae TIMOUT'UCBSM CAN EL!UCBSM_ POWER>,- 
UCBSu. sTS(Rr$) ; CTear unit status flags 
REQCOM ; Complete 1/0 in exec 


-DSABL LSB 
AGE 


eS 
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e 
KA_INTERRUPT, Handles interrupts generated by DR11-W 
Functional description: 


This routine is entered whenever an interrupt is generated 
by the DRil-w. It checks that an interrupt was expected. 
If not, it sets the unexpected (unsolicited) interrupt flag. 
ALL device registers are read and stored into the UCB. 
f an interrupt was expected, it calls the driver back at its Wait 
For Interrupt pojnt, 
Deliver ATTN AST's if unexpected interrupt. 


Inputs: 


Pointer to address of the device IDB 
saved RO 

saved R1 

saved R 

saved R 

saved R4 

saved R5 

saved PSL 

saved PC 


ANnnvnnnvow 
vuvvvVvVvVUU 
wweuevuvuvuvuvns 


Outputs: 


3 The driver is called at its Wait For Interrupt point if an 

: interrupt was expected. 

3 The current value of the DRil-W CSR's are stored in the UCB. 

KA_INTERRUPT: ; Interrupt service for DR11-W 
MOVL a(SP)+,R4 3; Address of IDB and pop SP 
MOVO = (R4) RE : CSR and UCB address from IDB 


; Read the DR11-W device registers (WCR, BAR, CSR, EIR, IDR) and store 
; into UCB. 


BSBW MA_REGISTER ; Read device registers 


3; Check to see if device transfer request active or not 
: If so, call driver back at Wait for Interrupt point and 
; Clear unexpected interrupt flag. 


208: BBCC #UCBSV_INT ,UCBSW_STS(R5) ,25$ 
3; If clear, no interrupt expected 


5 interrupt expected, clear unexpected interrupt flag and call driver 


P ck. 


BICW #UCBSM_UNEXPT ,UCBSW_DEVSTS(R5) 
; Clear unexgec tod interrupt flag 
MOVL arts at ate R3 ; Restore drivers R3 


J$8 aucesl FPC(RSS : Call driver back 


: -SBTTL KA INTERRUPT, Interrupt service routine for DR11-W 
' 


—_—____- —-—_- + s aiiiaelaeeaaae 


a — ce Po 


~~ £¢€§ ae Oo 


a 


a 
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BRB 308 


; Deliver ATIN AST's if no interrupt expected and set unexpected 
: interrupt flag. 


25%: 
B1SW #UCBSM_UNEXPT ,UCBSW_ DEVSTS(RS) ; Set  uneuogcted interrupt flag 
BSBW DEL_ATTNAST ; Deliver ATT 
B1SB8 XA itt IE, XA_CSR(R4) : Enable device interrupts 


; Restore registers and return from interrupt 


308: 
POPR @*M<RO,R1,R2,R3,R4,R5> ; Restore registers 
© REI ; Return from interrupt 


(De 
_ 
— 


7 ae ea FESR I OO COE ES RPE RR RRR! RE ITS OO ae aay 


55$: 


TRL 
60$: MOVW  KA_IBR(R4),UCBSW_xXA_ID 
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. PAGE 
-SBTTL KA_REGISTER = Handle DRil-wW CSR transfers 


+ 
; KALREGISTER = Routine to handle DRil-W register transfers 
; INPUTS: 


RG = DRil-wW CSR address 
RS = UCB address of unit 


OUTPUTS: 


CSR, EIR, WOR, BAR, IDR, and status are read and stored into UCB. 
The DRil-W is placed in its initial state with interrupts enabled. 
RO = .true. if no hard error 

-false. if hard error (cannot clear ATTN) 


If the CSR ERROR bit is set and the associated condition can be cleared, then 


; the error is transient and recoverable. The status returned is SS$_DRVERR. 


If the CSR ERROR bit is set and cannot be cleared by clearing the CSR, then 
this is a hard error and cannot be recovered. The returned status is 


; SS$_CTRLERR. 


RO,R1 = destroyed, all other registers preserved. 


KA_REGISTER: 


MOVZWL #SS$_NORMAL,RO 3; Assume success 

MOVZ2WL XA_CSR(R4),R1 ; Read CSR 

MOVW R1-,UCBSW_XA_CSR(RS) > Save CSR in UCB 
axA_CSRSO ERROR RI. 558 : Branch if no error 

MOVZWL #SSS_DRVERR,R 3 Assume ‘‘drive’’ err 


DRVERR, or 
w C<RA_CSRSM_FNCT> RI =; Clear all uninteresting bits for later 
BISB #<KA_CSRSM_ERROR/256>,XA CSR+1(R4) ; Set EIR flag 
MOVW XA_ETR(RG)-UCBSW_XA_EIR(RS) ; Save EIR in UCB 
7KA_CSR(RG) ; Clear EIR flag and errors 
MOV KA_CSR(R4) RI ; Read CSR back 
: If attention still set, hard error 
; Flag hard controller error 
vf _XA_IDR(RS) ; Save IDR in UCB 
MOV KA_BAR(R4) ,UCBSW_XA ot) 
; Save status in UCB 


x1 


‘Comenaees 


| 
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~SBTTL MKA_CANCEL, Cancel 1/0 routine 


"KA CANCEL, Cancels an 1/0 operation in progress 
S Funct tenet description: 


Flushes Attention AST queue for the user 


- resrure in progress, do a device reset to DR1l-W and finish the 
eques 
Clear Iecorrupt expected flag. 
; Inputs: 
R2 = negated value of channel index 
R35 = address of current IRP 
R4 = address of the PCB requesting the cancel 
RS = address of the device's UCB 
; Cutputs: 


MA_CANCEL: ; Cancel 1/0 


BBCC $#UCBSV_ATTNAST 
UCBSu_ BEvsTs(R§),20$ |; ATTN AST enabled? 


3; Finish all ATIN AST's for this process. 
PUSHR #*M<R2,R6,R7> 
MOVL R2,R6 3; Set up channel nuaber 
MOVAB UCBSL_XA ATINCRS), ee Soke at Lietaees 
JS8 Bee ONST LOSHATIN ; Flush ATTN AST's “ process 
POPR a*AcR2, RG R7> 

| 


; Check to see if a data transfer request is in progress 
:; for this process on this channel 


208: 
DSBINT urease DIPL(RS) ; Lock out device interrupts 
458 OCSCANCELIO 3 Check if transfer going 
aucebv sTstnsy 23 308 3; Branch if not for this guy 
: Force timeout 
CLRAL UCBSL_DUETIM(RS) clear timer 
81SW #uCBSA_TIM ucesu. STS(RS)* 3; set timed 
B1Cw au 
UCBSW_STS(R5)- ; Clear timed out 
ENBINT ; Lower to FORK IPL 
RSB ; Return 


iaaiaeresiistsinoonennniennseiaan 
| F 
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Serie DEL_ATTNAST, Deiiver ATIN AST's 


*DEL_ATINAST, Deliver all outstanding ATTN AST's 
: Functional description: 
: This routine is used by the DRIi-W driver to deliver all of the 
3 outstanding attention AST's. It is copied from COMSDELATINAST in 
3 the exec. In addition, it places the saved value of the DR1il-W CSR 
; and Input Data Buffer Register in the AST poreneter. 
: Inputs: 
; RS = UCB of DRI1-W unit 
; Outputs: 
: RO,R1,R2 Destroyed 
: R3,R4,R5 Preserved 
DEL_ATTNAST: 
DSBINT UCBSB_DIPL(RS) 4 L 
CC #UCBSO_ATTNAST,UCBSwW pevirg thas 3 
ATIN AST's expected? 
PUSHR #*M<R3,R4,R5> ; Seve ARS. 5 
10$: MOVL 8(SP),R1 : Get address of UCB 
MOVAB UCBSL_XA_ATTN(R1) ,R2 3; Address of ATIN AST Listhead 
MOVL (R2),R5 3 Address of next entry on . tee 
BEQL entry, end o 


: No next 
Bicw sucasn YNEXPT, /UCBSW_ pevsts«ri)  ; : Clear KAR, Theerewst flag 
MOVL (R5), (R2) Close list 
MOVW UCBSU_XA_IDR(R1) ,ACBSL _kAst+6(R5) 
Store IDR in AST paramater 

MOVW UCBSW_XA_CSR(R1) ,ACBSL _KAST#4(R5) 

3; Store CSR in AST paramater 
PUSHAB 6*°10$ 3; Set return address for FORK 
FORK ; FORK for this AST 


; AST fork procedure 
mova ACBSL_KAST(RS) ,ACBSL sau” 


MOVB = ACBSL AST ACB rob tr 


iagsrnee entries 
MOVL ACBSL~ KAST« 1e(R55, ACBSC_PID(R5) 


CLRL ACB 
MOVZBL #PRI OM ,R2 3; Set up rlority increment 
JMP son lt=10Con ; Queue the AST 

$: POPR a@°McR3,RG,RS> ; Restore registers 


; Enable interrupts 
3; Return 


Fr 
zm 
ae 

~ 

4 

~ 


r 
/ 
| 
| 
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«PA 
oa Serie KA_REGDUMP = DRil-W register dump routine 
KA_REGDUMP = DRI1-W Register dump routine. 


This routine is called to save the controller roptetere in a specified 
buffer. It is called from the device error logging routine and from the 
diagnostic buffer fill routine. 


Inputs: 


RO = Address of register save buffer 
R4 = Address of Control and Status Register 
RS - Address of UCB 


Outputs: 
The controller registers are saved in the specified buffer. 


CSRTMP = The Last command written to the DR1il-W CSR by 
by the driver. 
BARTMP = The Last value written into the DR1i-W BAR by 
the driver during a block mode transfer. 
The CSR image at the last interrupt 
The EIR image at the Last interrupt 
The IDR image at the last interrupt 
The BAR image at the last interrupt 
Word count register 
ERROR = The ayesen status at request completion 
PDRN - UBA Datapath Register number 
DPR = The contents of the UBA Data Path register 
FMPR = The contents of the last UBA me register 
PMRP - The contents of the previous UBA Map register 
DPRF - Flag for purge datapath error 
0 = no purger datapath error 
1 = parity error when datapath was purged 


Note that the values stored are from the last completed transfer 
operation. If a zero transfer count is specified, then the 
values are from the last operation with a non-zero transfer count. 


Ba Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Ge Se Ge 


KA_REGDUMP : 
MOVZ7ZBL #11, (RO)+ 3; Eleven registers are stored. 
MOVAB UCBEY_XA_CSRTMP(RS) .RI ; Get address 9! saved register images 
mOv7BL R2 ; Return 8 registers here 


108: ROV Zu (R1)+, (RO) 
SOBGTR R ; Move them 


; all 

MOVZBL UCBSW_XA_DPRN(RS),(RO)* ; Save Datapath Register number 
mOv7BL #@ ; And 3 more here 

208: mov. (R1)+¢, (RO) ; Move UBA register contents 


R2 go 
ROVZBL UCBSW_XA_DPRN¢1(R5),(RO)* ; Save Datapath Parity Error Flag 


St 


sf 


ul 


H 
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¥ XA _DEV_RESET = DRI1-W Device reset routine 


lo 
'} This rout tne raises IPL to device IPL, gertorae @ device reset to $I 
3 the required controler, and re-enables device interrupts. ’ 
: Inputs: 3 
; RG = Address of Control and Status Register 
3 RS = Address of UCB 
: Outputs: 
; Controller is reset, controller interrupts are enabled 
KA_DEV_RESET: 
PUSHR #*M<RO,R1,R2> : sey ve some registers 
OSBINT e IPL to lock all interrupts 
mOve Ww corer MAINT /256>, xa’ *cSaettre) 
CLRB _CSR+1( 
; **e Must delay here depending on reset interval ' 
TIMEDWAIT TIME=@XA_RESET_DELAY ; No. of 10 micro-sec intervals to wait 
“OVE @XA_CSRSM_IE,KA_CSR(R4) ; Rewenable device interrupts $I 
ENBINT : Restore IPL 
POPR @°M<RO,R1,R2> ; Restore registers 
RSB 4 
MA_LEND: : End of driver label +Y 
END 
| 
| 


eerie MA_DEV_RESET = Device reset DRI1-w 
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